home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 40
/
040.d81
/
list patrol boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
75 lines
0 poke53280,.:poke53281,.
5 ifa=1then519
10 print"[147][152][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
20 print"{$7d} [158]L O A[160]D S T A R [152]{$7d}";
30 print"{$7d} [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] {$7d}";
40 print"{$7d} Presents [152]{$7d}";
50 print"{$7d} [160] {$7d}";
60 print"{$7d} L I S T - P A T R O L [152]{$7d}";
70 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
80 print"[176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
90 print"{$7d}[151]100 REM [152][160] [160] {$7d}";
100 print"[221][151]110 [210][197][205] [204][201][211][212] [208][193][212][210][207][204] [152][160] [221]";
110 print"{$7d}[151]120 REM [152][160] {$7d}";
120 print"[221][151]130 [210][197][205] [194][217] [194][213][195][203][160][195][200][201][204][196][210][197][211][211] [152][160] [221]";
130 print"{$7d}[151]140 REM [152][160]{$7d}";
140 print"{$7d}[151]150 REM COPYRIGHT 1987 [152][160]{$7d}";
150 print"{$7d}[151]160 REM [152][160]{$7d}";
160 print"{$7d}[151]170 PRINT 'SUBSCRIBE TO[160]LOADSTAR NOW'[152][160]{$7d}";
170 print"{$7d}[151]175 GOTO 170 [152][160]{$7d}";
180 print"{$7d} [160]{$7d}";
190 print"{$7d} FIND [152]: [154]PRINT [152]{$7d}";
200 print"{$7d} [160]{$7d}";
210 print"{$7d}170 PRINT 'SUBSCRIBE TO LOADSTAR NOW' [152]{$7d}";
220 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
230 print"[176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]";
240 print"[221] [221]";
250 print"{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]";
260 poke241,peek(241)or128
270 print"[145]":print"[148][173]";:print"";
281 print "[208]ress [211][208][193][195][197] [212]o [195]ontinue"
290 geta$
295 ifa$<>" "then 290
300 print"[147]"
310 print
320 print
330 print
340 print" [204][201][211][212] [208][193][212][210][207][204]"
350 print" [152][163][163][163][163][163][163][163][163][163][163][163]"
360 print
370 print" 1[152]) [154][193][195][212][201][214][193][212][197] [204][201][211][212] [208][193][212][210][207][204]"
380 print
390 print
400 print" 2[152]) [154][209][213][201][212] [194][193][195][203] [212][207] [158][204][207][193][196][211][212][193][210]"
410 print
420 print
430 print" [197]nter [211]election [152](1 [207][210] 2[152]) "
450 geta$:ifa$=""then450
455 ifa$="1"then 500
456 ifa$="2"then 600
475 goto 450
500 :
510 print"[147]"
511 print" [207]nce [204][201][211][212] [208][193][212][210][207][204] is activated, you "
512 print"must reboot [204][207][193][196][211][212][193][210] to return to menu"
513 print" ** [196][207][160][217][207][213] [215][201][211][200] [212][207] [195][207][206][212][201][206][213][197] ? ([217]/[206]) **"
514 geta$:ifa$="" then 514
515 ifa$="[217]"ora$="y"then 518
516 ifa$="[206]"ora$="n"then 300
517 goto 514
518 a=1:print"[147][204][207][193][196][201][206][199]....":load"list patrol.ml",8,1
519 sys50000:print"[147][204]ist [208]atrol is now activiated. [217]ou may"
520 print"now use the function keys to control "
525 print"list patrol. [193]fter function keys have"
527 print"been pressed you can excape with the [210][213][206]/[211][212][207][208] [203]ey"
546 end
600 print"[145] [154][196][207][160][217][207][213][160][215][201][211][200] [212][207] [209][213][201][212]? ([217]/[206]) "
610 geta$:ifa$=""then610
611 ifa$="y"ora$="[217]" then 675
620 ifa$="n"ora$="[206]"thenprint"[145]";:goto 430
650 goto 610
675 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
677 ifer<>63 then print"[147]":end
680 load"hello connect",8,1
999 :